﻿Public Class UCSDevice
    Private M_Name As String
    Private M_Caption As String
    Private M_ParentMenu As String
    Private M_Description As String
    Private M_Visible As Boolean = True
    Public ReadOnly Property Caption() As String
        Get
            Return M_Caption
        End Get
    End Property
    Public ReadOnly Property Name() As String
        Get
            Return M_Name
        End Get
    End Property
    Public ReadOnly Property ParentMenu() As String
        Get
            Return M_ParentMenu
        End Get
    End Property
    Public ReadOnly Property Description() As String
        Get
            Return M_Description
        End Get
    End Property
    Public ReadOnly Property Visible() As Boolean
        Get
            Return M_Visible
        End Get
    End Property
    Public Sub New(ByVal Caption As String, ByVal Name As String, ByVal ParentMenu As String, ByVal Description As String)
        M_Caption = Caption
        M_Name = Name
        M_ParentMenu = ParentMenu
        M_Description = Description
        M_Visible = True
    End Sub
    Public Sub New(ByVal Caption As String, ByVal Name As String, ByVal ParentMenu As String, ByVal Description As String, ByVal Visible As Boolean)
        M_Caption = Caption
        M_Name = Name
        M_ParentMenu = ParentMenu
        M_Description = Description
        M_Visible = Visible
    End Sub
End Class
